home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
tennis
/
stos_68
/
tennis.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-22
|
96KB
|
337 lines
1 BREAK
10 GET PALETTE
100 IF
101 IF
102 IF
103 IF
104 IF
105 IF
106 IF
107 IF
108 IF
109 IF
11 VARNAME
110 IF
111 IF
112 IF
113 GOTO
114 REM
115 IF
116 IF
117 IF
118 IF
119 IF
12 SCREEN COPY
120 IF
121 ENVEL
122 RETURN
123 REM
124 REM
125 GET PALETTE
126 LIMIT MOUSE
127 X MOUSE
128 VARNAME
129 COLOUR
13 COLOUR
130 VARNAME
131 IF
132 IF
133 IF
134 IF
135 IF
136 SPRITE
137 SPRITE
138 SHOW
139 WAIT
14 VARNAME
140 MOVE Y
141 VARNAME
142 IF
143 IF
144 IF
145 IF
146 IF
147 IF
148 IF
149 IF
15 REM
150 IF
151 IF
152 IF
153 IF
154 IF
155 REM
156 GET PALETTE
157 LIMIT MOUSE
158 X MOUSE
159 VARNAME
16 LOCATE
160 COLOUR
161 VARNAME
162 IF
163 IF
164 IF
165 IF
166 IF
167 SPRITE
168 SPRITE
169 SHOW
17 LOCATE
170 WAIT
171 MOVE Y
172 VARNAME
173 IF
174 IF
175 IF
176 IF
177 IF
178 IF
179 IF
18 LOCATE
180 IF
181 IF
182 IF
183 IF
184 IF
185 IF
186 IF
187 IF
188 IF
189 IF
19 LOCATE
190 REM
191 REM
192 REM
193 VARNAME
194 SPRITE
195 IF
196 IF
197 GOTO
198 VARNAME
199 IF
2 BELL
20 LOCATE
200 IF
201 MOVE
202 VARNAME
203 LIMIT MOUSE
204 X MOUSE
205 ENVEL
206 IF
207 IF
208 IF
209 IF
21 LOCATE
210 IF
211 MOVE
212 IF
213 IF
214 IF
215 IF
216 IF
217 MOVE
218 GOTO
219 REM
22 MOVE
220 REM
221 REM
222 REM
223 IF
224 IF
225 IF
226 IF
227 IF
228 IF
229 IF
23 IF
230 IF
231 IF
232 IF
233 IF
234 IF
235 IF
236 IF
237 IF
238 IF
239 IF
24 IF
240 VARNAME
241 GOTO
242 REM
243 REM
244 REM
245 REM
246 REM
247 IF
248 VARNAME
249 IF
25 IF
250 IF
251 IF
252 IF
253 IF
254 IF
255 IF
256 IF
257 IF
258 IF
259 IF
26 IF
260 IF
261 IF
262 IF
263 IF
264 IF
265 IF
266 IF
267 IF
268 IF
269 IF
27 REM
270 IF
271 IF
272 IF
273 IF
274 IF
275 IF
276 IF
277 IF
278 IF
279 GOTO
28 REM
280 MOVE
281 VARNAME
282 IF
283 VARNAME
284 IF
285 IF
286 IF
287 IF
288 IF
289 GOTO
29 REM
290 IF
291 IF
292 IF
293 IF
294 GOTO
295 MOVE Y
296 IF
297 IF
298 MOVE
299 RETURN
3 REM
30 REM
300 MOVE
301 MOVE Y
302 IF
303 IF
304 IF
305 IF
306 IF
307 IF
308 MOVE
309 RETURN
31 SPRITE
310 CLS
311 GET PALETTE
312 SCREEN COPY
313 GET PALETTE
314 INC
315 VARNAME
316 VARNAME
317 LOCATE
318 LOCATE
319 LOCATE
32 LIMIT MOUSE
320 LOCATE
321 LOCATE
322 LOCATE
323 LOCATE
324 LOCATE
325 LOCATE
326 LOCATE
327 LOCATE
328 LOCATE
329 LOCATE
33 SET ZONE
330 IF
331 IF
332 REPEAT
333 IF
334 SCREEN COPY
335 BELL
336 RETURN
34 SET ZONE
35 SET ZONE
36 X MOUSE
37 WAIT
38 WHILE
39 SPRITE
4 CLICK
40 WEND
41 MOVE Y
42 REPEAT
43 UNTIL
44 CHANGE MOUSE
45 VARNAME
46 VARNAME
47 IF
48 IF
49 IF
5 KEY
50 IF
51 VARNAME
52 IF
53 IF
54 IF
55 IF
56 IF
57 IF
58 IF
59 IF
6 DIM
60 IF
61 IF
62 IF
63 IF
64 IF
65 GOTO
66 REM
67 IF
68 IF
69 IF
7 SCROLL
70 IF
71 IF
72 IF
73 ENVEL
74 RETURN
75 REM
76 REM
77 REM
78 REM
79 SPRITE
8 VARNAME
80 LIMIT MOUSE
81 SET ZONE
82 SET ZONE
83 SET ZONE
84 X MOUSE
85 WAIT
86 WHILE
87 SPRITE
88 WEND
89 MOVE Y
9 VARNAME
90 REPEAT
91 UNTIL
92 CHANGE MOUSE
93 VARNAME
94 VARNAME
95 IF
96 IF
97 IF
98 IF
99 VARNAME